home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Graphics / Art Utilities / Proportion Wheel 2.0 / background_2739.txt < prev    next >
Encoding:
Text File  |  1988-04-23  |  5.5 KB  |  263 lines
  1. -- background: 2739 from stack: in.0
  2. -- bmap block id: 3143
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 01
  10. -- high flags: 0002
  11. -- rect: left=225 top=116 right=138 bottom=287
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 3
  16. -- text size: 14
  17. -- style flags: 256
  18. -- line height: 18
  19. -- part name: PCT
  20.  
  21.  
  22. -- part 2 (field)
  23. -- low flags: 01
  24. -- high flags: 0002
  25. -- rect: left=155 top=176 right=198 bottom=254
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 3
  30. -- text size: 14
  31. -- style flags: 256
  32. -- line height: 18
  33. -- part name: OW
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   put empty into field "NW"
  37.   ask "Enter original width:"
  38.   put it into field "OW"
  39. end mouseUp
  40.  
  41.  
  42. -- part 3 (field)
  43. -- low flags: 01
  44. -- high flags: 0002
  45. -- rect: left=259 top=176 right=198 bottom=358
  46. -- title width / last selected line: 0
  47. -- icon id / first selected line: 0 / 0
  48. -- text alignment: 1
  49. -- font id: 3
  50. -- text size: 14
  51. -- style flags: 256
  52. -- line height: 18
  53. -- part name: NW
  54. ----- HyperTalk script -----
  55. on mouseUp
  56.   put empty into field "NL"
  57.   ask "Enter new width:"
  58.   put it into field "NW"
  59. end mouseUp
  60.  
  61.  
  62. -- part 4 (field)
  63. -- low flags: 01
  64. -- high flags: 0002
  65. -- rect: left=155 top=233 right=255 bottom=254
  66. -- title width / last selected line: 0
  67. -- icon id / first selected line: 0 / 0
  68. -- text alignment: 1
  69. -- font id: 3
  70. -- text size: 14
  71. -- style flags: 256
  72. -- line height: 18
  73. -- part name: OL
  74. ----- HyperTalk script -----
  75. on mouseUp
  76.   put empty into field "NL"
  77.   ask "Enter original length:"
  78.   put it into field "OL"
  79. end mouseUp
  80.  
  81.  
  82. -- part 6 (button)
  83. -- low flags: 00
  84. -- high flags: 8000
  85. -- rect: left=447 top=79 right=129 bottom=497
  86. -- title width / last selected line: 0
  87. -- icon id / first selected line: 27056 / 27056
  88. -- text alignment: 1
  89. -- font id: 0
  90. -- text size: 12
  91. -- style flags: 0
  92. -- line height: 16
  93. -- part name: Go Figure
  94. ----- HyperTalk script -----
  95. on mouseUp
  96.   if field "NL" is empty then
  97.     figureLength
  98.   else
  99.     figureWidth
  100.   end if
  101. end mouseUp
  102.  
  103. on figureLength
  104.   put the value of field "NW" / field "OW" * 100 into temp1
  105.   put the round of temp1 into field "PCT"
  106.   put the value of field "OL" * field "PCT" / 100 into field "NL"
  107. end figureLength
  108.  
  109. on figureWidth
  110.   put the value of field "NL" / field "OL" * 100 into temp3
  111.   put the round of temp3 into field "PCT"
  112.   put the value of field "OW" * field "PCT" / 100 into field "NW"
  113. end figureWidth
  114.  
  115.  
  116.  
  117. -- part 5 (field)
  118. -- low flags: 01
  119. -- high flags: 0002
  120. -- rect: left=259 top=233 right=255 bottom=358
  121. -- title width / last selected line: 0
  122. -- icon id / first selected line: 0 / 0
  123. -- text alignment: 1
  124. -- font id: 3
  125. -- text size: 14
  126. -- style flags: 256
  127. -- line height: 18
  128. -- part name: NL
  129. ----- HyperTalk script -----
  130. on mouseUp
  131.   put empty into field "NW"
  132.   ask "Enter new length:"
  133.   put it into field "NL"
  134. end mouseUp
  135.  
  136.  
  137. -- part 7 (button)
  138. -- low flags: 00
  139. -- high flags: 8000
  140. -- rect: left=443 top=24 right=74 bottom=501
  141. -- title width / last selected line: 0
  142. -- icon id / first selected line: 7012 / 7012
  143. -- text alignment: 1
  144. -- font id: 0
  145. -- text size: 12
  146. -- style flags: 0
  147. -- line height: 16
  148. -- part name: New Photo
  149. ----- HyperTalk script -----
  150. on mouseUp
  151.   delete word 1 of field "PCT"
  152.   delete word 1 of field "OW"
  153.   delete word 1 of field "NW"
  154.   delete word 1 of field "OL"
  155.   delete word 1 of field "NL"
  156.   ask "Original width of photo:"
  157.   put it into field "OW"
  158.   ask "New width of photo:"
  159.   put it into field "NW"
  160.   ask "Original length of photo:"
  161.   put it into field "OL"
  162.   ask "New length of photo:"
  163.   put it into field "NL"
  164. end mouseUp
  165.  
  166.  
  167.  
  168. -- part 8 (button)
  169. -- low flags: 00
  170. -- high flags: 0000
  171. -- rect: left=456 top=139 right=169 bottom=490
  172. -- title width / last selected line: 0
  173. -- icon id / first selected line: 20098 / 20098
  174. -- text alignment: 1
  175. -- font id: 0
  176. -- text size: 12
  177. -- style flags: 0
  178. -- line height: 16
  179. -- part name: Go home
  180. ----- HyperTalk script -----
  181. on mouseUp
  182.   go Home
  183. end mouseUp
  184.  
  185.  
  186.  
  187. -- part 9 (button)
  188. -- low flags: 00
  189. -- high flags: 8000
  190. -- rect: left=4 top=130 right=176 bottom=47
  191. -- title width / last selected line: 0
  192. -- icon id / first selected line: 1020 / 1020
  193. -- text alignment: 1
  194. -- font id: 0
  195. -- text size: 12
  196. -- style flags: 0
  197. -- line height: 16
  198. -- part name: Help
  199. ----- HyperTalk script -----
  200. on mouseUp
  201.   show field "Help screen"
  202. end mouseUp
  203.  
  204.  
  205.  
  206. -- part 10 (button)
  207. -- low flags: 00
  208. -- high flags: 8000
  209. -- rect: left=0 top=77 right=126 bottom=52
  210. -- title width / last selected line: 0
  211. -- icon id / first selected line: 2 / 2
  212. -- text alignment: 1
  213. -- font id: 0
  214. -- text size: 12
  215. -- style flags: 0
  216. -- line height: 16
  217. -- part name: Converter
  218. ----- HyperTalk script -----
  219. on mouseUp
  220.   Ask "Enter fraction or decimal: (Ex: 15/16 or .93)"
  221.   put it into temp
  222.   show field "converter"
  223.   find temp in field "converter"
  224. end mouseUp
  225.  
  226.  
  227.  
  228. -- part 13 (field)
  229. -- low flags: 81
  230. -- high flags: 0007
  231. -- rect: left=47 top=78 right=111 bottom=186
  232. -- title width / last selected line: 0
  233. -- icon id / first selected line: 0 / 0
  234. -- text alignment: 0
  235. -- font id: 3
  236. -- text size: 12
  237. -- style flags: 256
  238. -- line height: 16
  239. -- part name: converter
  240. ----- HyperTalk script -----
  241. on mouseUp
  242.   hide field "converter"
  243. end mouseUp
  244.  
  245.  
  246. -- part 15 (field)
  247. -- low flags: 01
  248. -- high flags: 0007
  249. -- rect: left=29 top=242 right=340 bottom=482
  250. -- title width / last selected line: 0
  251. -- icon id / first selected line: 0 / 0
  252. -- text alignment: 0
  253. -- font id: 3
  254. -- text size: 10
  255. -- style flags: 0
  256. -- line height: 13
  257. -- part name: Help screen
  258. ----- HyperTalk script -----
  259. on mouseUp
  260.   hide field "Help screen"
  261. end mouseUp
  262.  
  263.